home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / abreed3.lha / Robot.s < prev    next >
Encoding:
Text File  |  1995-09-13  |  13.6 KB  |  932 lines
  1. ROBFRAME: dc.w 0
  2.  
  3. ItsARobot:
  4.  
  5. *******************************
  6. ; cmp.b #4,numlives(a0)
  7. ; blt.s .oklives
  8. ; move.b #4,numlives(a0)
  9. ;.oklives
  10. *******************************
  11.  
  12.  tst.b NASTY
  13.  bne .yesnas
  14.  move.w #-1,12(a0)
  15.  rts
  16. .yesnas:
  17.  
  18.  move.w Facing(a0),d0
  19.  sub.w #2048,d0
  20.  and.w #8190,d0
  21.  move.w d0,Facing(a0)
  22.  
  23.  move.w #100,d0
  24.  jsr FindCloseRoom
  25.  clr.b exitfirst
  26.  
  27.  sub.b #1,worry(a0)
  28.  
  29.  move.w #160,extlen
  30.  move.b #2,awayfromwall
  31.  
  32.  move.l #20*256,StepUpVal
  33.  move.l #160*128,thingheight
  34.  move.l #20*256,StepDownVal
  35.  
  36.  move.w 12(a0),d2
  37.  bge.s .stillalive
  38. .notthisone:
  39.  rts
  40. .stillalive:
  41.  
  42.  tst.b numlives(a0)
  43.  bgt.s .notdying
  44.  
  45.  move.b #0,numlives(a0)
  46.  
  47. .onfloordead:
  48.  move.b #-1,16(a0)
  49.  rts
  50.  
  51. .notdying: 
  52.  
  53. ;
  54. ; 
  55. ; movem.l d0-d7/a0-a6,-(a7)
  56. ;
  57. ; move.w (a0),d0
  58. ; move.l #ObjRotated,a1
  59. ; move.l (a1,d0.w*8),Noisex
  60. ; move.w #400,Noisevol
  61. ; move.w #7,Samplenum
  62. ; move.b #1,chanpick
  63. ; move.b 1(a0),IDNUM
  64. ; clr.b notifplaying
  65. ; jsr MakeSomeNoise
  66. ; movem.l (a7)+,d0-d7/a0-a6
  67. ;
  68. ;.nosound:
  69.  
  70.  move.w #10,maxspd(a0)
  71.  
  72.  move.w ROBFRAME,d0
  73.  add.w TempFrames,d0
  74.  cmp.w #43,d0
  75.  blt.s .noresanim
  76.  moveq #0,d0
  77. .noresanim:
  78.  move.w d0,ROBFRAME
  79.  asr.w #1,d0
  80.  move.w d0,10(a0)
  81.  
  82.  move.w #70,nasheight
  83.  
  84.  tst.b 17(a0)
  85.  beq.s .cantseeplayer
  86.   
  87.  tst.w ThirdTimer(a0)
  88.  ble ROBAttack_Player
  89.  move.w TempFrames,d0
  90.  sub.w d0,ThirdTimer(a0)
  91.  bge .waitandsee
  92.  move.w #0,ThirdTimer(a0)
  93.  bra .waitandsee
  94.  
  95. .cantseeplayer 
  96.  
  97.  jsr GetRand
  98.  lsr.w #4,d0
  99.  and.w #63,d0
  100.  add.w #20,d0
  101.  move.w d0,ThirdTimer(a0)
  102.  
  103. .waitandsee:
  104.  
  105.  move.w #30,FourthTimer(a0)
  106.  
  107.  move.l ZoneAdds,a5
  108.  move.l (a5,d2.w*4),d0
  109.  add.l LEVELDATA,d0
  110.  move.l d0,objroom
  111.  
  112.  move.w TempFrames,d0
  113.  sub.w d0,ObjTimer(a0)
  114.  bgt.s .nonewdir
  115.  
  116.  tst.b 17(a0)
  117.  beq.s .keepwandering
  118.  
  119.  bra ROBAttack_Player
  120.  
  121. .keepwandering
  122.  
  123.  jsr GetRand
  124.  and.w #8190,d0
  125.  move.w d0,CurrCPt(a0)
  126.  
  127.  jsr GetRand
  128.  and.w #63,d0
  129.  add.w #100,d0
  130.  move.w d0,ObjTimer(a0)
  131.  
  132. .nonewdir
  133.  
  134.  move.w CurrCPt(a0),d3
  135.  move.l #SineTable,a2
  136.  add.w d3,a2
  137.  move.w (a2),d2
  138.  move.w 2048(a2),d1
  139.  
  140.  move.w Facing(a0),d3
  141.  move.l #SineTable,a2
  142.  move.w 120(a2),d6
  143.  swap d6
  144.  clr.w d6
  145.  asr.l #1,d6
  146.  lea (a2,d3.w),a2
  147.  move.w (a2),d4    ; sin
  148.  move.w 2048(a2),d5 ; cos
  149.  muls d2,d5
  150.  muls d1,d4
  151.  
  152.  moveq #0,d3
  153.  
  154.  sub.l d5,d4
  155.  blt.s .turnrighty
  156. .turnlefty:
  157.  
  158.  cmp.l d4,d6
  159.  bgt.s .doneturn
  160.  
  161.  move.w #-120,d3
  162.  
  163.  bra.s .doneturn
  164. .turnrighty:
  165.  
  166.  neg.l d4
  167.  cmp.l d4,d6
  168.  bgt.s .doneturn
  169.  
  170.  move.w #120,d3
  171.  
  172. .doneturn:
  173.  
  174.  
  175.  muls 2048(a2),d1
  176.  muls (a2),d2
  177.  add.l d2,d1
  178.  cmp.l #$20000000,d1
  179.  bgt.s .canwalk
  180.  move.w #0,maxspd(a0)
  181.  
  182.  add.w d3,d3
  183.  bne.s .canwalk
  184.  move.w #240,d3
  185.  
  186. .canwalk:
  187.  
  188.  add.w Facing(a0),d3
  189.  
  190.  and.w #8191,d3
  191.  
  192.  move.w d3,Facing(a0)
  193.  
  194.  move.w (a0),d1
  195.  move.l ObjectPoints,a1
  196.  lea (a1,d1.w*8),a1
  197.  move.w (a1),oldx 
  198.  move.w 4(a1),oldz
  199.  
  200.  move.w maxspd(a0),d2
  201.  muls TempFrames,d2
  202.  move.w d2,speed
  203.  move.w #300,Range
  204.  
  205.  move.w 4(a0),d0
  206.  ext.l d0
  207.  asl.l #7,d0
  208.  sub.w #40*128,d0
  209.  move.l d0,newy
  210.  move.l d0,oldy
  211.  
  212.  move.b ObjInTop(a0),StoodInTop
  213.  
  214.  movem.l d0/a0/a1/a3/a4/d7,-(a7)
  215.  clr.b canshove
  216.  move.w Facing(a0),d0
  217.  jsr GoInDirection
  218.  move.w #%1000000000,wallflags
  219.  clr.b wallbounce
  220.  Jsr MoveObject
  221.  movem.l (a7)+,d0/a0/a1/a3/a4/d7
  222.  
  223.  move.b StoodInTop,ObjInTop(a0)
  224.  
  225.  tst.b hitwall
  226.  beq.s .nochangedir
  227.  move.w #-1,ObjTimer(a0)
  228. .nochangedir:
  229.  
  230.  move.l objroom,a2
  231.  move.w (a2),d0
  232.  move.w d0,12(a0)
  233.  move.l #ZoneBrightTable,a5
  234.  move.l (a5,d0.w*4),d0
  235.  tst.b ObjInTop(a0)
  236.  bne.s .okbit
  237.  swap d0
  238. .okbit:
  239.  sub.w #5,d0
  240.  move.w d0,2(a0)
  241.  
  242.  move.w newx,(a1)
  243.  move.w newz,4(a1)
  244.  
  245.  move.l ToZoneFloor(a2),d0
  246.  tst.b ObjInTop(a0)
  247.  beq.s .notintop
  248.  move.l ToUpperFloor(a2),d0
  249. .notintop:
  250.  asr.l #7,d0
  251.  sub.w #120,d0
  252.  move.w d0,4(a0)
  253.  
  254.  moveq #0,d2
  255.  move.b damagetaken(a0),d2
  256.  asr.b #4,d2
  257.  beq .noscream
  258.  
  259.  sub.b d2,numlives(a0)
  260.  bgt.s .notdeadyet
  261.  
  262.  movem.l d0-d7/a0-a6,-(a7)
  263.  sub.l ObjectPoints,a1
  264.  add.l #ObjRotated,a1
  265.  move.l (a1),Noisex
  266.  move.w #400,Noisevol
  267.  move.w #15,Samplenum
  268.  move.b #1,chanpick
  269.  clr.b notifplaying
  270.  st backbeat
  271.  move.b 1(a0),IDNUM
  272.  jsr MakeSomeNoise
  273.  
  274.  move.w #120,d0
  275.  bsr ComputeBlast
  276.  
  277.  movem.l (a7)+,d0-d7/a0-a6
  278.  
  279.  move.b #4,16(a0)
  280.  move.b #%1000,17(a0)
  281.  move.l #$50003,8(a0)
  282.  move.w #$2020,6(a0)
  283.  move.w #$1010,14(a0)
  284.  
  285.  
  286.  rts
  287.  
  288. .notdeadyet:
  289.  clr.b damagetaken(a0)
  290.  
  291.  movem.l d0-d7/a0-a6,-(a7)
  292.  sub.l ObjectPoints,a1
  293.  add.l #ObjRotated,a1
  294.  move.l (a1),Noisex
  295.  move.w #200,Noisevol
  296.  move.w #8,Samplenum
  297.  move.b #1,chanpick
  298.  clr.b notifplaying
  299.  move.b 1(a0),IDNUM
  300.  st backbeat
  301.  jsr MakeSomeNoise
  302.  movem.l (a7)+,d0-d7/a0-a6
  303.  
  304. .noscream
  305.  
  306.  move.b ObjInTop(a0),ViewerTop
  307.  move.b PLR1_StoodInTop,TargetTop
  308.  move.l PLR1_Roompt,ToRoom
  309.  move.l objroom,FromRoom
  310.  move.w newx,Viewerx
  311.  move.w newz,Viewerz
  312.  move.b ObjInTop(a0),ViewerTop
  313.  move.b PLR1_StoodInTop,TargetTop
  314.  move.w PLR1_xoff,Targetx
  315.  move.w PLR1_zoff,Targetz
  316.  
  317.  move.l PLR1_yoff,d0
  318.  asr.l #7,d0
  319.  move.w d0,Targety
  320.  
  321.  move.w 4(a0),Viewery
  322.  
  323.  move.w Facing(a0),Facedir
  324.  jsr CanItBeSeen
  325.  
  326.  tst.b CanSee
  327.  beq .carryonprowling
  328.  
  329.  move.b #1,17(a0)
  330.  
  331. .carryonprowling:
  332.  
  333.  move.b ObjInTop(a0),ViewerTop
  334.  move.b PLR2_StoodInTop,TargetTop
  335.  move.l PLR2_Roompt,ToRoom
  336.  move.l objroom,FromRoom
  337.  move.w newx,Viewerx
  338.  move.w newz,Viewerz
  339.  move.w p2_xoff,Targetx
  340.  move.w p2_zoff,Targetz
  341.  move.b ObjInTop(a0),ViewerTop
  342.  move.b PLR2_StoodInTop,TargetTop
  343.  move.l p2_yoff,d0
  344.  asr.l #7,d0
  345.  move.w d0,Targety
  346.  move.w 4(a0),Viewery
  347.  jsr CanItBeSeen
  348.  
  349.  tst.b CanSee
  350.  beq .carryonprowling2
  351.  
  352.  or.b #2,17(a0)
  353.  
  354. .carryonprowling2:
  355.  
  356.  move.w Facing(a0),d0
  357.  add.w #2048,d0
  358.  and.w #8190,d0
  359.  move.w d0,Facing(a0)
  360.  
  361.  
  362. .thisonedead:
  363.  rts
  364.  
  365. p_xoff: dc.l 0
  366. p_zoff: dc.l 0
  367. p_yoff: dc.l 0
  368. p_Roompt: dc.l 0
  369.  
  370. ROBAttack_Player:
  371.  
  372.  move.w TempFrames,d0
  373.  sub.w d0,FourthTimer(a0)
  374.  
  375.  btst #0,17(a0)
  376.  beq MUSTPLR2
  377.  btst #1,17(a0)
  378.  bne.s COULDBE
  379.  
  380.  bra MUSTPLR1
  381.  
  382. COULDBE:
  383.  move.l ObjectPoints,a1
  384.  move.w (a0),d0
  385.  move.w (a1,d0.w*8),d1
  386.  move.w 4(a1,d0.w*8),d2
  387.  
  388.  move.w PLR1_xoff,d3
  389.  move.w PLR1_zoff,d4
  390.  
  391.  sub.w d1,d3
  392.  sub.w d2,d4
  393.  
  394.  muls d3,d3
  395.  muls d4,d4
  396.  add.l d4,d3
  397.  move.w PLR2_xoff,d4
  398.  move.w PLR2_zoff,d5
  399.  sub.w d1,d4
  400.  sub.w d2,d5
  401.  muls d4,d4
  402.  muls d5,d5
  403.  add.l d5,d4
  404.  cmp.l d3,d4
  405.  ble MUSTPLR2
  406.  
  407. MUSTPLR1:
  408.  
  409.  move.w 12(a0),d2
  410.  move.l ZoneAdds,a5
  411.  move.l (a5,d2.w*4),d0
  412.  add.l LEVELDATA,d0
  413.  move.l d0,objroom
  414.  
  415.  move.w PLR1_xoff,newx
  416.  move.w PLR1_zoff,newz
  417.  move.w (a0),d1
  418.  move.l #ObjRotated,a6
  419.  move.l ObjectPoints,a1
  420.  lea (a1,d1.w*8),a1
  421.  lea (a6,d1.w*8),a6
  422.  move.w (a1),oldx
  423.  move.w 4(a1),oldz
  424.  move.w maxspd(a0),d2
  425.  muls.w TempFrames,d2
  426.  move.w d2,speed
  427.  move.w #300,Range
  428.  move.w 4(a0),d0
  429.  ext.l d0
  430.  asl.l #7,d0
  431.  sub.l #40*128,d0
  432.  move.l d0,newy
  433.  move.l d0,oldy
  434.  
  435.  move.b ObjInTop(a0),StoodInTop
  436.  movem.l d0/a0/a1/a3/a4/d7,-(a7)
  437.  clr.b canshove
  438.  clr.b GotThere
  439.  jsr HeadTowardsAng
  440.  move.w #%1000000000,wallflags
  441.  clr.b wallbounce
  442.  Jsr MoveObject
  443.  movem.l (a7)+,d0/a0/a1/a3/a4/d7
  444.  move.b StoodInTop,ObjInTop(a0)
  445.  
  446.  move.w CosRet,d1
  447.  move.w SinRet,d2
  448.  move.w Facing(a0),d3
  449.  move.l #SineTable,a2
  450.  move.w 120(a2),d6
  451.  swap d6
  452.  clr.w d6
  453.  asr.l #1,d6
  454.  lea (a2,d3.w),a2
  455.  move.w (a2),d4    ; sin
  456.  move.w 2048(a2),d5 ; cos
  457.  muls d2,d5
  458.  muls d1,d4
  459.  
  460.  moveq #0,d3
  461.  
  462.  sub.l d5,d4
  463.  blt.s .turnrighty2
  464. .turnlefty2:
  465.  
  466.  cmp.l d4,d6
  467.  bgt.s .doneturn2
  468.  
  469.  move.w #-240,d3
  470.  
  471.  bra.s .doneturn2
  472. .turnrighty2:
  473.  
  474.  neg.l d4
  475.  cmp.l d4,d6
  476.  bgt.s .doneturn2
  477.  
  478.  move.w #240,d3
  479.  
  480. .doneturn2:
  481.  
  482.  move.w #4,maxspd(a0)
  483.  
  484.  muls 2048(a2),d1
  485.  muls (a2),d2
  486.  add.l d2,d1
  487.  cmp.l #$20000000,d1
  488.  sgt.s canshootgun
  489.  bgt.s .canwalk2
  490.  move.w #0,maxspd(a0)
  491.  
  492.  add.w d3,d3
  493.  bne.s .canwalk2
  494.  move.w #480,d3
  495.  
  496. .canwalk2:
  497.  
  498.  add.w Facing(a0),d3
  499.  
  500.  and.w #8191,d3
  501.  
  502.  move.w d3,Facing(a0)
  503.  
  504.  
  505.  move.l objroom,a2
  506.  move.w (a2),d0
  507.  move.w d0,12(a0)
  508.  move.l #ZoneBrightTable,a5
  509.  move.l (a5,d0.w*4),d0
  510.  tst.b ObjInTop(a0)
  511.  bne.s .okbit2
  512.  swap d0
  513. .okbit2:
  514.  sub.w #5,d0
  515.  move.w d0,2(a0)
  516.  
  517.  move.w newx,(a1)
  518.  move.w newz,4(a1)
  519.  
  520.  move.l ToZoneFloor(a2),d0
  521.  tst.b ObjInTop(a0)
  522.  beq.s .notintop2
  523.  move.l ToUpperFloor(a2),d0
  524. .notintop2:
  525.  asr.l #7,d0
  526.  sub.w #120,d0
  527.  move.w d0,4(a0)
  528.  
  529.  move.b damagetaken(a0),d2
  530.  asr.b #4,d2
  531.  beq .noscream2
  532.  
  533.  sub.b d2,numlives(a0)
  534.  bgt.s .notdeadyet2
  535.  
  536.  movem.l d0-d7/a0-a6,-(a7)
  537.  sub.l ObjectPoints,a1
  538.  add.l #ObjRotated,a1
  539.  move.l (a1),Noisex
  540.  move.w #400,Noisevol
  541.  move.w #15,Samplenum
  542.  move.b #1,chanpick
  543.  clr.b notifplaying
  544.  st backbeat
  545.  move.b 1(a0),IDNUM
  546.  jsr MakeSomeNoise
  547.  
  548.  move.w #400,d0
  549.  bsr ComputeBlast
  550.  
  551.  movem.l (a7)+,d0-d7/a0-a6
  552.  
  553.  move.b #4,16(a0)
  554.  move.b #%1000,17(a0)
  555.  move.l #$50003,8(a0)
  556.  move.w #$2020,6(a0)
  557.  move.w #$1010,14(a0)
  558.  
  559.  
  560.  rts 
  561.  
  562. .notdeadyet2:
  563.  clr.b damagetaken(a0)
  564.  
  565.  movem.l d0-d7/a0-a6,-(a7)
  566.  move.l (a6),Noisex
  567.  move.w #200,Noisevol
  568.  move.w #8,Samplenum
  569.  move.b #1,chanpick
  570.  clr.b notifplaying
  571.  st backbeat
  572.  move.b 1(a0),IDNUM
  573.  jsr MakeSomeNoise
  574.  movem.l (a7)+,d0-d7/a0-a6
  575.  
  576.  bra .cantshoot
  577.  
  578. .noscream2:
  579.  
  580.  tst.b canshootgun
  581.  beq .cantshoot
  582.  
  583.  cmp.w #20,FourthTimer(a0)
  584.  bge .cantshoot
  585.  
  586.  move.w #50,FourthTimer(a0)
  587.  
  588.  move.w ThirdTimer(a0),d0
  589.  sub.w #1,d0
  590.  cmp.w #-1,d0
  591.  bge.s .noreset
  592.  
  593.  jsr GetRand
  594.  lsr.w #4,d0
  595.  and.w #127,d0
  596.  add.w #150,d0
  597.  
  598. .noreset:
  599.  move.w d0,ThirdTimer(a0)
  600.  
  601.  move.w #9,Samplenum
  602.  move.b #4,SHOTTYPE
  603.  move.b #10,SHOTPOWER
  604.  move.w #16,SHOTSPEED
  605.  move.w #3,SHOTSHIFT
  606.  move.w #0,SHOTOFFMULT
  607.  move.l #0*128,SHOTYOFF
  608.  move.w #-100,2(a0)
  609.  
  610.  jsr FireAtPlayer1
  611.  
  612. .cantshoot:
  613.  
  614.  move.b #0,17(a0)
  615.  
  616.  move.l PLR1_Roompt,ToRoom
  617.  move.l objroom,FromRoom
  618.  move.w newx,Viewerx
  619.  move.w newz,Viewerz
  620.  move.w p1_xoff,Targetx
  621.  move.w p1_zoff,Targetz
  622.  move.b ObjInTop(a0),ViewerTop
  623.  move.b PLR1_StoodInTop,TargetTop
  624.  move.w Facing(a0),Facedir
  625.  move.l p1_yoff,d0
  626.  asr.l #7,d0
  627.  move.w d0,Targety
  628.  
  629.  move.w 4(a0),Viewery
  630.  
  631.  jsr CanItBeSeen
  632.  
  633.  tst.b CanSee
  634.  beq .carryonattack
  635.  
  636.  move.b #1,17(a0)
  637.  
  638. .carryonattack:
  639.  
  640.  move.l PLR2_Roompt,ToRoom
  641.  move.l objroom,FromRoom
  642.  move.w newx,Viewerx
  643.  move.w newz,Viewerz
  644.  move.w p2_xoff,Targetx
  645.  move.w p2_zoff,Targetz
  646.  move.w Facing(a0),Facedir
  647.  move.b ObjInTop(a0),ViewerTop
  648.  move.b PLR2_StoodInTop,TargetTop
  649.  move.l p2_yoff,d0
  650.  asr.l #7,d0
  651.  move.w d0,Targety
  652.  
  653.  move.w 4(a0),Viewery
  654.  
  655.  jsr CanItBeSeen
  656.  
  657.  tst.b CanSee
  658.  beq .carryonattack2
  659.  
  660.  or.b #2,17(a0)
  661.  
  662. .carryonattack2:
  663.  move.w Facing(a0),d0
  664.  add.w #2048,d0
  665.  and.w #8190,d0
  666.  move.w d0,Facing(a0)
  667.  
  668.  rts
  669.  
  670. MUSTPLR2:
  671.  
  672.  move.w 12(a0),d2
  673.  move.l ZoneAdds,a5
  674.  move.l (a5,d2.w*4),d0
  675.  add.l LEVELDATA,d0
  676.  move.l d0,objroom
  677.  
  678.  move.w PLR2_xoff,newx
  679.  move.w PLR2_zoff,newz
  680.  move.w (a0),d1
  681.  move.l #ObjRotated,a6
  682.  move.l ObjectPoints,a1
  683.  lea (a1,d1.w*8),a1
  684.  lea (a6,d1.w*8),a6
  685.  move.w (a1),oldx
  686.  move.w 4(a1),oldz
  687.  move.w maxspd(a0),d2
  688.  muls.w TempFrames,d2
  689.  move.w d2,speed
  690.  move.w #300,Range
  691.  move.w 4(a0),d0
  692.  ext.l d0
  693.  asl.l #7,d0
  694.  sub.l #80*128,d0
  695.  move.l d0,newy
  696.  move.l d0,oldy
  697.  
  698.  move.b ObjInTop(a0),StoodInTop
  699.  movem.l d0/a0/a1/a3/a4/d7,-(a7)
  700.  clr.b canshove
  701.  clr.b GotThere
  702.  jsr HeadTowardsAng
  703.  move.w #%1000000000,wallflags
  704.  clr.b wallbounce
  705.  Jsr MoveObject
  706.  movem.l (a7)+,d0/a0/a1/a3/a4/d7
  707.  move.b StoodInTop,ObjInTop(a0)
  708.  
  709.  move.w CosRet,d1
  710.  move.w SinRet,d2
  711.  move.w Facing(a0),d3
  712.  move.l #SineTable,a2
  713.  move.w 120(a2),d6
  714.  swap d6
  715.  clr.w d6
  716.  asr.l #1,d6
  717.  lea (a2,d3.w),a2
  718.  move.w (a2),d4    ; sin
  719.  move.w 2048(a2),d5 ; cos
  720.  muls d2,d5
  721.  muls d1,d4
  722.  
  723.  moveq #0,d3
  724.  
  725.  sub.l d5,d4
  726.  blt.s .turnrighty2
  727. .turnlefty2:
  728.  
  729.  cmp.l d4,d6
  730.  bgt.s .doneturn2
  731.  
  732.  move.w #-120,d3
  733.  
  734.  bra.s .doneturn2
  735. .turnrighty2:
  736.  
  737.  neg.l d4
  738.  cmp.l d4,d6
  739.  bgt.s .doneturn2
  740.  
  741.  move.w #120,d3
  742.  
  743. .doneturn2:
  744.  
  745.  move.w #4,maxspd(a0)
  746.  
  747.  muls 2048(a2),d1
  748.  muls (a2),d2
  749.  add.l d2,d1
  750.  cmp.l #$20000000,d1
  751.  sgt.s canshootgun
  752.  bgt.s .canwalk2
  753.  move.w #0,maxspd(a0)
  754.  
  755.  add.w d3,d3
  756.  bne.s .canwalk2
  757.  move.w #240,d3
  758.  
  759. .canwalk2:
  760.  
  761.  add.w Facing(a0),d3
  762.  
  763.  and.w #8191,d3
  764.  
  765.  move.w d3,Facing(a0)
  766.  
  767.  
  768.  move.l objroom,a2
  769.  move.w (a2),d0
  770.  move.w d0,12(a0)
  771.  move.l #ZoneBrightTable,a5
  772.  move.l (a5,d0.w*4),d0
  773.  tst.b ObjInTop(a0)
  774.  bne.s .okbit2
  775.  swap d0
  776. .okbit2:
  777.  sub.w #5,d0
  778.  move.w d0,2(a0)
  779.  
  780.  move.w newx,(a1)
  781.  move.w newz,4(a1)
  782.  
  783.  move.l ToZoneFloor(a2),d0
  784.  tst.b ObjInTop(a0)
  785.  beq.s .notintop2
  786.  move.l ToUpperFloor(a2),d0
  787. .notintop2:
  788.  asr.l #7,d0
  789.  sub.w #120,d0
  790.  move.w d0,4(a0)
  791.  
  792.  move.b damagetaken(a0),d2
  793.  asr.b #4,d2
  794.  beq .noscream2
  795.  
  796.  sub.b d2,numlives(a0)
  797.  bgt.s .notdeadyet2
  798.  
  799.  movem.l d0-d7/a0-a6,-(a7)
  800.  sub.l ObjectPoints,a1
  801.  add.l #ObjRotated,a1
  802.  move.l (a1),Noisex
  803.  move.w #400,Noisevol
  804.  move.w #15,Samplenum
  805.  move.b #1,chanpick
  806.  clr.b notifplaying
  807.  st backbeat
  808.  move.b 1(a0),IDNUM
  809.  jsr MakeSomeNoise
  810.  
  811.  move.w #400,d0
  812.  bsr ComputeBlast
  813.  
  814.  movem.l (a7)+,d0-d7/a0-a6
  815.  
  816.  move.b #4,16(a0)
  817.  move.b #%1000,17(a0)
  818.  move.l #$50003,8(a0)
  819.  move.w #$2020,6(a0)
  820.  move.w #$1010,14(a0)
  821.  
  822.  rts 
  823.  
  824. .notdeadyet2:
  825.  clr.b damagetaken(a0)
  826.  
  827.  movem.l d0-d7/a0-a6,-(a7)
  828.  move.l (a6),Noisex
  829.  move.w #200,Noisevol
  830.  move.w #8,Samplenum
  831.  move.b #1,chanpick
  832.  clr.b notifplaying
  833.  st backbeat
  834.  move.b 1(a0),IDNUM
  835.  jsr MakeSomeNoise
  836.  movem.l (a7)+,d0-d7/a0-a6
  837.  
  838.  bra .cantshoot
  839.  
  840. .noscream2:
  841.  
  842.  tst.b canshootgun
  843.  beq .cantshoot
  844.  
  845.  cmp.w #20,FourthTimer(a0)
  846.  bge .cantshoot
  847.  
  848.  move.w #50,FourthTimer(a0)
  849.  
  850.  move.w ThirdTimer(a0),d0
  851.  sub.w #1,d0
  852.  cmp.w #-2,d0
  853.  bge.s .noreset
  854.  
  855.  jsr GetRand
  856.  and.w #127,d0
  857.  add.w #100,d0
  858.  
  859. .noreset:
  860.  move.w d0,ThirdTimer(a0)
  861.  
  862.  move.w #9,Samplenum
  863.  move.b #4,SHOTTYPE
  864.  move.b #10,SHOTPOWER
  865.  move.w #16,SHOTSPEED
  866.  move.w #3,SHOTSHIFT
  867.  move.w #0,SHOTOFFMULT
  868.  move.l #0*128,SHOTYOFF
  869.  move.w #-100,2(a0)
  870.  
  871.  jsr FireAtPlayer2
  872.  
  873. .cantshoot:
  874.   
  875.  move.b #0,17(a0)
  876.  
  877.  move.l PLR1_Roompt,ToRoom
  878.  move.l objroom,FromRoom
  879.  move.w newx,Viewerx
  880.  move.w newz,Viewerz
  881.  move.w p1_xoff,Targetx
  882.  move.w p1_zoff,Targetz
  883.  move.b ObjInTop(a0),ViewerTop
  884.  move.b PLR1_StoodInTop,TargetTop
  885.  move.w Facing(a0),Facedir
  886.  move.l p1_yoff,d0
  887.  asr.l #7,d0
  888.  move.w d0,Targety
  889.  
  890.  move.w 4(a0),Viewery
  891.  
  892.  jsr CanItBeSeen
  893.  
  894.  tst.b CanSee
  895.  beq .carryonattack
  896.  
  897.  move.b #1,17(a0)
  898.  
  899. .carryonattack:
  900.  
  901.  move.l PLR2_Roompt,ToRoom
  902.  move.l objroom,FromRoom
  903.  move.w newx,Viewerx
  904.  move.w newz,Viewerz
  905.  move.w p2_xoff,Targetx
  906.  move.w p2_zoff,Targetz
  907.  move.b ObjInTop(a0),ViewerTop
  908.  move.b PLR2_StoodInTop,TargetTop
  909.  move.w Facing(a0),Facedir
  910.  move.l p2_yoff,d0
  911.  asr.l #7,d0
  912.  move.w d0,Targety
  913.  
  914.  move.w 4(a0),Viewery
  915.  
  916.  jsr CanItBeSeen
  917.  
  918.  tst.b CanSee
  919.  beq .carryonattack2
  920.  
  921.  or.b #2,17(a0)
  922.  
  923. .carryonattack2:
  924.  move.w Facing(a0),d0
  925.  add.w #2048,d0
  926.  and.w #8190,d0
  927.  move.w d0,Facing(a0)
  928.  
  929.  rts
  930.  
  931.  
  932. canshootgun: dc.w 0